home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / loadstar list (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  4.3 KB  |  181 lines
  1. 5 a$=""
  2. 6 ifa=0thena=1:load"input any.o",8,1
  3. 10 goto660
  4. 20 rem ------input routine-------
  5. 30 poke198,0:k$=""
  6. 40 print" [157][146]";:fort=1to10:next
  7. 50 print" [157]";:fort=1to10:next
  8. 60 geta$:ifa$=""then40
  9. 70 l=len(k$)
  10. 80 if(qq)and(l=0)and((a$>="a")and(a$<="z"))thena$=chr$(asc(a$)+128):goto150
  11. 90 ifa$=chr$(13)thena$=k$:print:return
  12. 100 ifa$=chr$(20)andlthenprint" [157][157]";:k$=left$(k$,l-1):goto40
  13. 110 ifnu=0thenif(a$<" "ora$>"_")and(a$<"[193]"ora$>"[218]")then40
  14. 120 ifnu=1thenif(a$<"a"ora$>"z")and(a$<"[193]"ora$>"[218]")then40
  15. 130 ifnu=2thenifa$<"0"ora$>"9"then40
  16. 140 ifl>ln-1then40
  17. 150 printa$;:k$=k$+a$
  18. 160 goto40
  19. 165 rem ------line lock-------
  20. 170 poke770,131:poke771,164
  21. 180 poke88,0:poke89,192
  22. 190 poke90,0:poke91,192
  23. 200 poke781,33:poke782,0
  24. 210 sys41964
  25. 220 poke88,254:poke89,255
  26. 230 poke90,254:poke91,255
  27. 240 poke781,33:poke782,0
  28. 250 sys41964
  29. 260 poke59639,1:poke1,53:return
  30. 270 rem ------list routine-------
  31. 280 print"[200]old down [211][208][193][195][197] to pause  -  [209] to quit"
  32. 290 iftythenopen4,4,7:cmd4
  33. 300 fori=1tox-1:ifty=0thenprint"[152]";
  34. 310 ifx=1andty=0thenprint"     [217]ou must [204][207][193][196] a file first":goto460
  35. 320 ifpeek(203)=60then320
  36. 325 ifpeek(203)=62theni=x-1
  37. 330 ontlgoto340,360,380,400,420
  38. 340 ify=ls%(i)then420
  39. 345 ify<ls%(i)and(x<202)theni=x-1
  40. 350 goto460
  41. 360 ify$=left$(pr$(i),len(y$))then420
  42. 370 goto460
  43. 380 ify$=left$(au$(i),len(y$))then420
  44. 390 goto460
  45. 400 ifp%(i)=ythen420
  46. 410 goto460
  47. 420 print"-----------------------------------"
  48. 430 print"[198]rom [204]oadstar #"ls%(i):ifty=0thenprint"[159]";
  49. 440 printchr$(34)pr$(i)chr$(34)"
  50. 445 [153]" by "au$(i)
  51. 450 [153][163]5)ca$(p%(i))
  52. 460 [130]:[139]ty[167][152]4,[199](13):[160]4
  53. 470 [153]"(NULL)ress any key to return to (NULL)ain (NULL)enu":[151]198,0
  54. 480 [161]a$:[139]a$[178]""[167]480
  55. 490 [142]
  56. 500 [143] ------category list-------
  57. 510 [153]""
  58. 520 [129]i[178]0[164]5
  59. 530 [153][163]8)"sys"i[170]1"print - "ca$(i)
  60. 540 [130]
  61. 550 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]550
  62. 560 [142]
  63. 570 [143] ------error message-------
  64. 580 [139]st[178]0[167]640
  65. 590 [132]15,a$,b$
  66. 600 [153][163]15)"(NULL)ress a keyononon"
  67. 610 ta[178]20[171][181]([195](b$)[173]2)
  68. 620 [153][163]ta)"sys"b$:[129]t[178]1[164]15:[130]:[153][163]ta)"onclr"b$"on":[129]t[178]1[164]15:[130]
  69. 630 [161]a$:[139]a$[178]""[167]620
  70. 640 [160]15:[142]
  71. 650 [143] -------initialization-------
  72. 660 [151]53281,0:[151]53280,0:[153]"load"[199](14)[199](8)
  73. 670 [134]pr$(250),p%(250),au$(250),ls%(250),ca$(6)
  74. 680 [129]i[178]0[164]5:[135]ca$(i):[130]
  75. 690 x[178]1:ls%(0)[178]30:qq[178]0:[141]170
  76. 700 [153]"load"
  77. 710 [143] -------main menu-------
  78. 720 [153][163]7)"def(NULL) (NULL) atn str$ (NULL) (NULL) atn (NULL)    (NULL) right$ (NULL) (NULL)":qq[178]0
  79. 730 [153][163]8)"open(c) 1987 by ascender (NULL)ucker"
  80. 740 [153][163]10)"sys1list  -  valnter (NULL)rograms"
  81. 750 [153][163]10)"sys2list  -  (NULL)ist (NULL)rograms"
  82. 760 [153][163]10)"sys3list  -  (NULL)oad a (NULL)ist
  83. 770 printtab(10)"[158]4[155]  -  [211]ave a [204]ist
  84. 780 [153][163]10)"sys5list  -  (NULL)uit
  85. 790 geta$:ifa$<"1"ora$>"5"then790
  86. 795 qq=0
  87. 800 onval(a$)goto880,1070,1410,1570,810
  88. 810 print"[153] [193]re you sure you want to quit? ([158][217][153][146]/[158][206][153][146])"
  89. 820 aa=peek(203):ifaa<>25andaa<>39then820
  90. 830 ifaa=39then700
  91. 835 poke1,119
  92. 840 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  93. 850 ifer<>63thenend
  94. 860 load"hello connect",8
  95. 870 rem -------enter routine-------
  96. 880 print"[147]"tab(8)"[158][208]rogram [206]umber[153]"x
  97. 890 printtab(8)"[158][204]oadstar # [155]";:nu=2:ln=2:gosub30
  98. 900 ls%(x)=val(left$(a$,2))
  99. 910 ifls%(x)=0then700
  100. 920 printspc(9)"------------------------------[145][145][145]"
  101. 930 print"[158][212]itle -  [155]";:nu=0:ln=30:qq=1:gosub30
  102. 940 pr$(x)=a$
  103. 950 printspc(9)"------------------------[145][145][145]"
  104. 960 print"[158][193]uthor - [155]";:nu=0:ln=24:qq=1:gosub30
  105. 970 au$(x)=a$
  106. 980 gosub510:p%(x)=val(a$)-1
  107. 990 print"[159]":printchr$(34)pr$(x)chr$(34)
  108. 995 print"    by "au$(x)
  109. 1000 print:printca$(p%(x))" - [204]oadstar #"ls%(x)
  110. 1010 printtab(8)"[153][201]s this correct? ([158][217][153][146]/[158][206][153][146])"
  111. 1020 geta$:ifa$<>"y"anda$<>"n"then1020
  112. 1030 ifa$="n"then880
  113. 1040 x=x+1
  114. 1050 goto880
  115. 1060 rem -------list menu-------
  116. 1070 print"[147][150]":qq=0
  117. 1080 printtab(7)"[212][200][197] [204][207][193][196][211][212][193][210] [204][201][211][212] [205][197][206][213]"
  118. 1090 printtab(10)"[158][193][155] - [194]y [204]oadstar [201]ssue #"
  119. 1100 print"  [204]"
  120. 1110 printtab(10)"[158][194][155] - [194]y [208]rogram [212]itle"
  121. 1120 print"   [201]"
  122. 1130 printtab(10)"[158][195][155] - [194]y [193]uthor"
  123. 1140 print"    [211]"
  124. 1150 printtab(10)"[158][196][155] - [194]y [195]ategory"
  125. 1160 print"     [212]"
  126. 1170 printtab(10)"[158][197][155] - [193]ll"
  127. 1180 printtab(10)"[158][198][155] - [194]ack to [205]ain [205]enu"
  128. 1190 geta$:ifa$<"a"ora$>"f"then1190
  129. 1200 tl=asc(a$)-64:y=-1:y$=""
  130. 1210 print"[153]":ontlgosub1230,1260,1290,1320,1340,700
  131. 1220 goto1340
  132. 1230 printtab(7)"[204]oadstar [201]ssue # [155]";
  133. 1240 nu=2:ln=2:gosub30:y=val(a$)
  134. 1250 return
  135. 1260 printtab(7)"[208]rogram [212]itle - [155]";
  136. 1270 nu=0:ln=20:qq=1:gosub30:y$=a$
  137. 1280 return
  138. 1290 printtab(7)"[193]uthor's [206]ame - [155]";
  139. 1300 nu=0:ln=20:qq=1:gosub30:y$=a$
  140. 1310 return
  141. 1320 gosub520:y=val(a$)-1
  142. 1330 return
  143. 1340 print"[153]    [204]ist to ([158][211][146][153])creen or ([158][208][146][153])rinter"
  144. 1350 geta$:ifa$<>"s"anda$<>"p"then1350
  145. 1360 ty=0:ifa$="p"thenty=1
  146. 1370 ifty=0thenprint"[147]"
  147. 1380 gosub280
  148. 1390 goto700
  149. 1400 rem -------load routine-------
  150. 1410 f$="":print"[158]"tab(5)"[198]ilename to [204][207][193][196] - [155]list";:k$="list":l=4
  151. 1420 nu=0:ln=16:gosub40:f$=a$
  152. 1430 iff$=""then700
  153. 1440 open15,8,15,"i0"
  154. 1450 open2,8,2,"0:"+f$+",p,r"
  155. 1460 sys828,2,255:x=val(a$)
  156. 1470 fori=1tox
  157. 1480 sys828,2,255:pr$(i)=a$
  158. 1490 sys828,2,255:au$(i)=a$
  159. 1510 sys828,2,255:p%(i)=val(a$)
  160. 1520 sys828,2,255:ls%(i)=val(a$)
  161. 1530 next:close2
  162. 1540 gosub580
  163. 1550 goto700
  164. 1560 rem -------save routine-------
  165. 1570 f$="":print"[158]"tab(5)"[198]ilename to [211][193][214][197] - [155]";
  166. 1580 nu=0:ln=16:gosub30:f$=a$
  167. 1590 iff$=""then700
  168. 1600 open15,8,15,"i0"
  169. 1610 open2,8,2,"0:"+f$+",p,w"
  170. 1620 print#2,x
  171. 1630 fori=1tox
  172. 1640 print#2,pr$(i)
  173. 1650 print#2,au$(i)
  174. 1660 print#2,p%(i)
  175. 1670 print#2,ls%(i)
  176. 1680 next:close2
  177. 1690 gosub580
  178. 1700 goto700
  179. 1710 data"[198]un 'n [199]ames","[212]he [200]appy [200]acker","[208]icture [212]his"
  180. 1720 data"[200]elpware","[194]rainware","[205]usical [205]adness"
  181.